約 2,004,042 件
https://w.atwiki.jp/keiplus/pages/131.html
Excel セル書式 Excel ★タスク 書式設定 本項は書きたての記事です。正確な情報は公式サイト、公式ドキュメント、記載の参照サイトでご確認ください。 content contentsub {}を含む場合はダブル・ブレスで囲む。プログラムソースコードを記述 [ 1000000]0.00," KB";[ 1000000000]0.00,," MB";0.00,,," GB"
https://w.atwiki.jp/excelmasters/pages/30.html
ExcelViewerとは、パソコンにExcelがインストールされていなくてもExcelで作成したファイルを見たり、印刷したりすることができるソフトで、ファイルの編集はできません。 詳しくはMicrosoftの「Excel Viewer 2003」のページをご覧ください。 http //www.microsoft.com/downloads/details.aspx?FamilyID=c8378bf4-996c-4569-b547-75edbd03aaf0 displaylang=JA
https://w.atwiki.jp/javadsge/pages/4247.html
(1)表 (2)プログラム プログラム (3)グラフ EXCEL (4)出所 (5)メモ fusiontables読み込み (6)作業記録 3月9日 ページ -
https://w.atwiki.jp/sevenlives/pages/1329.html
セル(Excel) 読み:せる 英語:cell 別名: 意味: セルとはExcelにおけるデータを入力する最小単位の場所。 列と行の交差する場所であり列はアルファベット、行は数字で表わされる。 このセルという概念によりデータをデータベースのように表にして扱えグラフなどの加工も容易となる。 2008年05月29日 Excel アクティブ・セル
https://w.atwiki.jp/keiplus/pages/156.html
Excelカラー Excel color css design XlColorIndex 色 10進数 16進数 1 0,0,0 H000000 2 255,255,255 HFFFFFF 3 255,0,0 H0000FF 4 0,255,0 H00FF00 5 0,0,255 HFF0000 6 255,255,0 H00FFFF 7 255,0,255 HFF00FF 8 0,255,255 HFFFF00 9 128,0,0 H000080 10 0,128,0 H008000 11 0,0,128 H800000 12 128,128,0 H008080 13 128,0,128 H800080 14 0,128,128 H808000 15 192,192,192 HC0C0C0 16 128,128,128 H808080 17 153,153,255 HFF9999 18 153,51,102 H663399 19 255,255,204 HCCFFFF 20 204,255,255 HFFFFCC 21 102,0,102 H660066 22 255,128,128 H8080FF 23 0,102,204 HCC6600 24 204,204,255 HFFCCCC 25 0,0,128 H800000 26 255,0,255 HFF00FF 27 255,255,0 H00FFFF 28 0,255,255 HFFFF00 29 128,0,128 H800080 30 128,0,0 H000080 31 0,128,128 H808000 32 0,0,255 HFF0000 33 0,204,255 HFFCC00 34 204,255,255 HFFFFCC 35 204,255,204 HCCFFCC 36 255,255,153 H99FFFF 37 153,204,255 HFFCC99 38 255,153,204 HCC99FF 39 204,153,255 HFF99CC 40 255,204,153 H99CCFF 41 51,102,255 HFF6633 42 51,204,204 HCCCC33 43 153,204,0 H00CC99 44 255,204,0 H00CCFF 45 255,153,0 H0099FF 46 255,102,0 H0066FF 47 102,102,153 H996666 48 150,150,150 H969696 49 0,51,102 H663300 50 51,153,102 H669933 51 0,51,0 H003300 52 51,51,0 H003333 53 153,51,0 H003399 54 153,51,102 H663399 55 51,51,153 H993333 56 51,51,51 H333333 (参考) [ 【VBA入門】ColorIndexの使い方と色見本一覧(色番号、RGB) | 侍エンジニアブログ ] ( https //www.sejuku.net/blog/32288 )
https://w.atwiki.jp/erebos/pages/36.html
Excelファイルを開き、指定のセル値を取得 public class ExcelUtil { #region メンバ変数 private Excel.Application oXls; private Excel.Workbook oWBook; #endregion #region プロパティ /// summary /// ワークブック /// /summary public Excel.Workbook Book { get { return this.oWBook; } } #endregion /// summary /// コンストラクタ /// /summary public ExcelUtil() { } #region メソッド /// summary /// 指定されたExcelファイルを開く /// /summary /// param name="fname" Excelファイル名 /param public bool Open(string fname) { this.oXls = new Excel.Application(); this.oXls.DefaultFilePath = AppDomain.CurrentDomain.BaseDirectory; //this.oXls.Visible = true; // 確認のためExcelのウィンドウを表示する try { // Excelファイルをオープンする this.oWBook = (Excel.Workbook)(oXls.Workbooks.Open( fname, // オープンするExcelファイル名 Type.Missing, // (省略可能)UpdateLinks (0 / 1 / 2 / 3) Type.Missing, // (省略可能)ReadOnly (True / False ) Type.Missing, // (省略可能)Format // 1 タブ / 2 カンマ (,) / 3 スペース / 4 セミコロン (;) // 5 なし / 6 引数 Delimiterで指定された文字 Type.Missing, // (省略可能)Password Type.Missing, // (省略可能)WriteResPassword Type.Missing, // (省略可能)IgnoreReadOnlyRecommended Type.Missing, // (省略可能)Origin Type.Missing, // (省略可能)Delimiter Type.Missing, // (省略可能)Editable Type.Missing, // (省略可能)Notify Type.Missing, // (省略可能)Converter Type.Missing, // (省略可能)AddToMru Type.Missing, // (省略可能)Local Type.Missing // (省略可能)CorruptLoad )); return true; } catch (Exception e) { Console.WriteLine(e.Message); return false; } } /// summary /// 指定されたワークシート名のWorksheetオブジェクトを返す /// /summary /// param name="sheetName" ワークシート名 /param public Excel.Worksheet GetWorksheet(string sheetName) { Excel.Worksheet oSheet; oSheet = (Excel.Worksheet)oWBook.Sheets[GetSheetIndex(sheetName, this.oWBook.Sheets)]; return oSheet; } /// summary /// 指定されたワークシート名のインデックスを返すメソッド /// /summary /// param name="sheetName" ワークシート名 /param /// param name="shs" ワークシートコレクション /param private int GetSheetIndex(string sheetName, Excel.Sheets shs) { int i = 0; foreach (Excel.Worksheet sh in shs) { if (sheetName == sh.Name) { return i + 1; } i += 1; } return 0; } /// summary /// Excelファイルを閉じる /// /summary public void Close() { this.oWBook.Close(Type.Missing, Type.Missing, Type.Missing); //this.oXls.DefaultFilePath = @"C \"; this.oXls.Quit(); Marshal.ReleaseComObject(this.oWBook); Marshal.ReleaseComObject(this.oXls); this.oWBook = null; this.oXls = null; } #endregion }
https://w.atwiki.jp/papi601106/pages/29.html
+目次はこちら グラフが表示通りに印刷されない グラフが表示通りに印刷されない 2012.01.31 グラフの凡例などが印刷されなくなるという現象が発生したので調べたらMSで発見。 2011 年 10 月以降に公開された Excel 2007 の更新プログラムを適用すると表示通りに印刷できない 良かれと思いあてた更新プログラムのせいでした・・・ 該当の更新プログラムのアンインストールでOKとのこと。 ちなみにこちらのKBです。 KB2596535 KB2596539 KB2596545 KB2596596 KB2596991 KB2597045
https://w.atwiki.jp/shiromaty/pages/22.html
Excel Tips & メモ ■部分一致条件付書式 例) C列に市区町村が入力され、そこに"八王子"とある場合に A~C列のセルの色を変えたい 1. 条件付書式にて「数式」を選択 2. 以下の式を入力 =FIND("八王子",#C1) 0 ■ウィンドウ枠の固定 例) C列(項目見出し用)と3行目(タイトル項目見出し用)を見出しとして使用し スクロールしても表示しておきたい 1. D4セルを選択→メニュー「ウィンドウ」→「ウィンドウ枠の固定」
https://w.atwiki.jp/pc-help/pages/15.html
Excelパスワード メニューの 「ツール」→「オプション」内の 「セキュリティ」タブ から設定。 忘れると、二度と開けないので要注意です!
https://w.atwiki.jp/cz8686/pages/16.html
[ExcelVBA]BOOKクローズ時に保存しないように OwnBook.Saved = True [ExcelVBA]Excelブックをオブジェクト変数にセット //EXCELVBAブックをオブジェクト変数にセット Set OwnBook = ActiveWorkbook Set DataSheet = OwnBook.Worksheets("data") Set TemplateSheet = OwnBook.Worksheets("template") [ExcelVBA]データシートの行数取得 DataSheetRowCnt = DataSheet.Range("A1").CurrentRegion.Rows.Count [ExcelVBA]テキスト取込み Dim j As Integer Worksheets("Sheet1").Select Open "D \MyDocuments\data.txt" For Input As #1 //変数初期化 i = 0 Do Until EOF(1) Input #1, _ myBuf(1), myBuf(2), myBuf(3), myBuf(4), myBuf(5), myBuf(6), myBuf(7), myBuf(8), myBuf(9), myBuf(10), myBuf(11), myBuf(12), myBuf(13), myBuf(14), myBuf(15), myBuf(16), myBuf(17), myBuf(18), myBuf(19), myBuf(20), _ myBuf(21), myBuf(22), myBuf(23), myBuf(24), myBuf(25), myBuf(26), myBuf(27), myBuf(28), myBuf(29), myBuf(30), myBuf(31), myBuf(32), myBuf(33), myBuf(34), myBuf(35), myBuf(36), myBuf(37), myBuf(38), myBuf(39), myBuf(40), _ myBuf(41), myBuf(42), myBuf(43), myBuf(44), myBuf(45), myBuf(46), myBuf(47), myBuf(48), myBuf(49), myBuf(50), myBuf(51), myBuf(52), myBuf(53), myBuf(54), myBuf(55), myBuf(56), myBuf(57), myBuf(58), myBuf(59), myBuf(60), _ myBuf(61), myBuf(62), myBuf(63), myBuf(64), myBuf(65), myBuf(66), myBuf(67), myBuf(68), myBuf(69), myBuf(70), myBuf(71), myBuf(72), myBuf(73), myBuf(74), myBuf(75), myBuf(76), myBuf(77), myBuf(78), myBuf(79), myBuf(80), _ myBuf(81), myBuf(82), myBuf(83), myBuf(84), myBuf(85), myBuf(86), myBuf(87), myBuf(88), myBuf(89), myBuf(90), myBuf(91), myBuf(92), myBuf(93), myBuf(94), myBuf(95), myBuf(96), myBuf(97), myBuf(98), myBuf(99), myBuf(100), _ myBuf(101), myBuf(102), myBuf(103), myBuf(104), myBuf(105), myBuf(106), myBuf(107), myBuf(108), myBuf(109), myBuf(110), myBuf(111), myBuf(112), myBuf(113), myBuf(114), myBuf(115), myBuf(116), myBuf(117), myBuf(118), myBuf(119), myBuf(120), _ myBuf(121), myBuf(122), myBuf(123), myBuf(124), myBuf(125), myBuf(126), myBuf(127), myBuf(128), myBuf(129), myBuf(130), myBuf(131), myBuf(132), myBuf(133), myBuf(134), myBuf(135), myBuf(136), myBuf(137), myBuf(138), myBuf(139), myBuf(140), _ myBuf(141), myBuf(142), myBuf(143), myBuf(144), myBuf(145), myBuf(146), myBuf(147), myBuf(148), myBuf(149), myBuf(150), myBuf(151), myBuf(152), myBuf(153), myBuf(154), myBuf(155), myBuf(156), myBuf(157), myBuf(158), myBuf(159), myBuf(160), _ myBuf(161), myBuf(162), myBuf(163), myBuf(164), myBuf(165), myBuf(166), myBuf(167), myBuf(168), myBuf(169), myBuf(170), myBuf(171), myBuf(172), myBuf(173), myBuf(174), myBuf(175), myBuf(176), myBuf(177), myBuf(178), myBuf(179), myBuf(180), _ myBuf(181), myBuf(182), myBuf(183), myBuf(184), myBuf(185), myBuf(186), myBuf(187), myBuf(188), myBuf(189), myBuf(190), myBuf(191), myBuf(192), myBuf(193), myBuf(194), myBuf(195), myBuf(196), myBuf(197), myBuf(198), myBuf(199), myBuf(200), _ myBuf(201), myBuf(202), myBuf(203), myBuf(204), myBuf(205), myBuf(206), myBuf(207), myBuf(208), myBuf(209), myBuf(210), myBuf(211), myBuf(212), myBuf(213), myBuf(214), myBuf(215), myBuf(216), myBuf(217), myBuf(218), myBuf(219), myBuf(220), _ myBuf(221), myBuf(222), myBuf(223), myBuf(224), myBuf(225), myBuf(226), myBuf(227), myBuf(228), myBuf(229), myBuf(230), myBuf(231), myBuf(232), myBuf(233), myBuf(234), myBuf(235), myBuf(236), myBuf(237), myBuf(238), myBuf(239), myBuf(240), _ myBuf(241), myBuf(242), myBuf(243), myBuf(244), myBuf(245), myBuf(246), myBuf(247), myBuf(248), myBuf(249) i = i + 1 For j = 1 To 249 Cells(i, j) = myBuf(j) Next j Loop Close #1 [ExcelVBA]テキスト出力 Sub outputXML() Dim SaveFilename As String Dim i As Integer Dim DataSheetRowCnt As Integer データ行数取得 DataSheetRowCnt = ActiveWorkbook.Worksheets("Sheet1").Range("A1").CurrentRegion.Rows.Count SaveFilename = Application.GetSaveAsFilename("test", "(*.xml),*.xml", , "結果の保存") SaveFilename = ActiveWorkbook.Path "\" "address.xml" MsgBox SaveFilename vbCr "に出力されました" Open SaveFilename For Output As #1 Print #1, " ?xml version= 1.0 encoding= Shift_JIS ? " Print #1, " ?xml-stylesheet type= text/xsl href= address.xsl ? " Print #1, " 名簿 " For i = 3 To DataSheetRowCnt Print #1, " 連絡先 " Print #1, " 正式名称 "; Cells(i, 1).Value; " /正式名称 " Print #1, " 略称 "; Cells(i, 2).Value; " /略称 " Print #1, " 担当者 "; Cells(i, 3).Value; " /担当者 " Print #1, " 内線 "; Replace(Cells(i, 4).Value, Chr(10), "、"); " /内線 " Print #1, " メールアドレス "; Replace(Cells(i, 5).Value, Chr(10), "、"); " /メールアドレス " Print #1, " 担当システム "; Replace(Cells(i, 6).Value, Chr(10), "、"); " /担当システム " Print #1, " 備考 "; Cells(i, 7).Value; " /備考 " Print #1, " 補足 "; Cells(i, 8).Value; " /補足 " Print #1, " /連絡先 " Next i Print #1, " /名簿 " Close #1 ActiveWorkbook.Save End Sub [ExcelVBA]フォルダ選択ダイアログ ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ パブリック変数宣言 ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ ■定数■ /* BrowseForFolder Method Options */ Const BIF_RETURNONLYFSDIRS = H1 // Only return file system directories. ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ フォルダ取得ダイアログを表示する (BrowseForFolder関数) 引数 sTitle タイトルの文字列 nOptions 選択オプションの値 sRootFolder 既定フォルダの文字列 ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Public Function BrowseForFolder(sTitle As String, nOptions, Optional sRootFolder As String = "") As String Dim oShell As Object Dim oFolder As Object Set oShell = CreateObject("Shell.Application") Set oFolder = oShell.BrowseForFolder(0, sTitle, nOptions, sRootFolder) If oFolder Is Nothing Then BrowseForFolder = "" Else If oFolder.ParentFolder Is Nothing Then 下位の未選択デスクトップ Dim objWShell As Object WScript.Shell シェルのオブジェクトを作成 Set objWShell = CreateObject("WScript.Shell") デスクトップの場所を返す BrowseForFolder = objWShell.SpecialFolders("Desktop") オブジェクトの解放 Set objWShell = Nothing Else BrowseForFolder = oFolder.Items.Item.Path パスをセットする End If End If Set oFolder = Nothing Set oShell = Nothing End Function sub 呼び出しがわ() dim PUB_SAVE_FOLDER as String PUB_SAVE_FOLDER = BrowseForFolder(mymsg, BIF_RETURNONLYFSDIRS, "") Msgbox PUB_SAVE_FOLDER end sub [ExcelVBA]改行コードの除去 Sub test() Dim value1 As String value1 = Cells(1, 2) value1 = Replace(value1, Chr(10), "") 改行コードの除去 Chr(10)= LF:改行 MsgBox value1 Cells(2, 1) = value1 End Sub [ExcelVBA]全シート選択・プレビュー Dim i As Integer For i = ActiveWorkbook.Worksheets.Count To 1 Step -1 ActiveWorkbook.Worksheets(i).Select fase Next i ActiveWindow.SelectedSheets [Excel関数]色々 ■(例)セル値が○になっているデータの数をカウントする。 =COUNTIF(E4 E25,"○") ■(例)セル値が空欄の数をカウントする。 =COUNTBLANK(E5 E27)